Public Class Query

    Function GetQuery() As DataSet
        Dim ds As New DataSet
        Try
            Dim oObject As New RibsClass
            Return oObject.GetTemplate
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Return ds
    End Function

End Class
